www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\文章系统标签库\nd_include_art_count.asp

    <%'$start_ext_newDsoft 以下系统生成,勿删!
'$newDsoft_label_type$:asp_label$end_newDsoft_label_type$
'$newDsoft_label_name$:include_art_count$end_newDsoft_label_name$
'$newDsoft_label_sql$: $end_newDsoft_label_sql$
'$newDsoft_label_params$:id,文章id,1$end_newDsoft_label_params$
'$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$
'$newDsoft_label_beizhu$:日，月　浏览量计算$end_newDsoft_label_beizhu$
'$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$
'$newDsoft_other_params$:htmledxa:1|htmledxb:$end_newDsoft_other_params$
'$end_ext_newDsoft%>
<%

stop_count_aaaa=0
stop_count_aastr=""

'-----------------------------------------------------防刷新
If Request.Cookies("newdsoft")("norefresh")<>"" Then

If DateDiff("s",Request.Cookies("newdsoft")("norefresh"),Now())<5 Then


stop_count_aastr="防止恶意刷新功能已启动,请勿刷点击量"

stop_count_aaaa=1

If Request.ServerVariables("QUERY_STRING")="" Then


ppssppsssp1=Request.ServerVariables("URL")
Else

ppssppsssp1=Request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING")
End If




End IF
End if
Response.Cookies("newdsoft")("norefresh")=Now()
'---------------------------------------------end--------防刷新


if stop_count_aaaa=0 and cstr(session("nd_making_htm_ad_n_add_x")&"")="" then



biao2="[ND_Article]"
set rs22cc=server.CreateObject("adodb.recordset")
rs22cc.open "select top 1 * from "&biao2&" where id="&$xxvar$id,newdsoft_conn_obj,1,3
if month(rs22cc("HitsTime"))="" or  month(rs22cc("HitsTime"))<>month(date()) then

rs22cc("MonthHits")=1
else

rs22cc("MonthHits")=rs22cc("MonthHits")+1
end if

if rs22cc("HitsTime")="" or day(rs22cc("HitsTime"))<>day(date()) then
rs22cc("DayHits")=1
else
rs22cc("DayHits")=rs22cc("DayHits")+1
end if
rs22cc("HitsTime")=date()
rs22cc("Hits")=rs22cc("Hits")+1
rs22cc.update
rs22cc.close
set rs22cc=nothing

end if

%>